Option Explicit
Sub E_Sample002()
   'ո E_Data01u@
    Dim myRng As Range
    Set myRng = Cells.Find(what:="", _
    After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False)	'wjM
    If myRng Is Nothing Then
        MsgBox "SŦXxs"
    Else
        MsgBox myRng.Address
    End If
    Set myRng = Nothing				'
End Sub

